﻿Public Class Main
    Dim connect As Boolean
    Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        connect = False

        If connect = False Then
            Dim ketnoi As New KetNoi
            ketnoi.ShowDialog()

            If ketnoi.ketnoi = True Then
                'MessageBox.Show("Kết nối thành công")
                
                
            Else
                MessageBox.Show("Kết nối dữ liệu không thành công")
            End If

        End If
    End Sub
End Class